[ Back ] [ Home ] [ Up ] [ Next ]

إظهار او إخفاء شريط المهام

    أضف التالي في قسم التصاريح

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib _
"user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

أكتب اجراء اخفاء شريط المهام

'taskbarاخفاء ال
Sub HideTaskBar()
Dim Wnd&
Wnd = FindWindow("Shell_traywnd", vbNullString)
ShowWindow Wnd, 0
End Sub

أكتب اجراء اظهار شريط المهام

'taskbarاظهار ال
Sub ShowTaskBar()
Dim Wnd&
Wnd = FindWindow("Shell_traywnd", vbNullString)
ShowWindow Wnd, 1
End Sub

استدعي اجراء الاخفاء من اي مكان تريد ولنفرض زر امر

Private Sub Command1_Click()
Call HideTaskBar
End Sub

وبنفس الطريقة اجراء الاظهار

Private Sub Command2_Click()
Call ShowTaskBar
End Sub